home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Amos_Procs.lha / YesNo.proc / YesNo.amosSourceCode
Encoding:
AMOS Source Code  |  1991-12-03  |  281 b   |  15 lines
  1. Procedure YESNO
  2.    ' By John Smit 
  3.    ' Waits for a 'Y' or an 'N' to be input
  4.    ' value returned in param$ 
  5.    '
  6.    Z$=""
  7.    Repeat 
  8.       Z$=Inkey$
  9.       Z$=Upper$(Z$)
  10.    Until Asc(Z$)=78 or Asc(Z$)=89
  11. End Proc[Z$]
  12. '
  13. ' example
  14. YESNO
  15. If Param$="Y" Then Print "YES" Else Print "NO"